﻿Public Class BEcontacto

#Region "Declaración de variables"

    Private codContacto As Integer
    Private nombre As String
    Private apePaterno As String
    Private apeMaterno As String
    Private fechaNacimiento As Date
    Private titulo As String

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodContacto As Object, _
            ByVal pNombre As Object, _
            ByVal pApePaterno As Object, _
            ByVal pApeMaterno As Object, _
            ByRef pFechaNacimiento As Object, _
            ByVal pTitulo As Object)

        Me._codContacto = pCodContacto
        Me._nombre = pNombre
        Me._apePaterno = pApePaterno
        Me._apeMaterno = pApeMaterno
        Me._fechaNacimiento = pFechaNacimiento
        Me._titulo = pTitulo
    End Sub

    Public Property _codContacto() As Integer
        Get
            Return Me.codContacto
        End Get
        Set(ByVal value As Integer)
            Me.codContacto = value
        End Set
    End Property

    Public Property _nombre() As String
        Get
            Return Me.nombre
        End Get
        Set(ByVal value As String)
            Me.nombre = value
        End Set
    End Property


    Public Property _apePaterno() As String
        Get
            Return Me.apePaterno
        End Get
        Set(ByVal value As String)
            Me.apePaterno = value
        End Set
    End Property


    Public Property _apeMaterno() As String
        Get
            Return Me.apeMaterno
        End Get
        Set(ByVal value As String)
            Me.apeMaterno = value
        End Set
    End Property


    Public Property _fechaNacimiento() As Date
        Get
            Return Me.fechaNacimiento
        End Get
        Set(ByVal value As Date)
            Me.fechaNacimiento = value
        End Set
    End Property


    Public Property _titulo() As String
        Get
            Return Me.titulo
        End Get
        Set(ByVal value As String)
            Me.titulo = value
        End Set
    End Property

End Class
